Fix noninteractive gnus-article-press-button

* lisp/gnus/gnus-art.el (gnus-article-press-button): Make the `b'
summary mode command work again.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index 70ededf1ba18c9cc8e6784ee8e8d06c7df685f1c..7ded9e40e9918d4ef49997d481af339d1070fbca 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -7894,7 +7894,8 @@ If the text at point has a `gnus-callback' property,
 call it with the value of the `gnus-data' text property."
   (interactive (list last-nonmenu-event))
   (save-excursion
-    (mouse-set-point event)
+    (when event
+      (mouse-set-point event))
     (let ((fun (get-text-property (point) 'gnus-callback)))
       (when fun
         (funcall fun (get-text-property (point) 'gnus-data))))))